home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Frameworks / Grant's CGI Framework 1.0b14 / Interface / Menus / MenuFile.c < prev    next >
Text File  |  1996-04-08  |  1KB  |  86 lines
  1. /*****
  2.  *
  3.  *    MenuFile.c
  4.  *
  5.  *    This is a support file for "Grant's CGI Framework".
  6.  *    Please see the license agreement that accompanies the distribution package
  7.  *    for licensing details.
  8.  *
  9.  *    Copyright ©1995,1996 by Grant Neufeld
  10.  *    grant@acm.com
  11.  *    http://arpp.carleton.ca/grant/
  12.  *
  13.  *****/
  14.  
  15. #include "MyConfiguration.h"
  16. #if kCompileWithForeground
  17.  
  18. #include "compiler_stuff.h"
  19. #include "globals.h"
  20.  
  21. #include "MenuFunc.h"
  22. #include "Quit.h"
  23. #include "WindowInt.h"
  24.  
  25. #include "MenuFile.h"
  26.  
  27.  
  28. /***  FUNCTIONS  ***/
  29.  
  30. /*  */
  31. void
  32. doFileMenu ( short theItem, short modifiers )
  33. {
  34.     switch ( theItem ) 
  35.     {
  36.         case kmiClose :
  37.             WindowMenuClose ( modifiers );
  38.             break;
  39.         
  40.         case kmiQuit :
  41.             doQuitApp ();
  42.             break;
  43.         
  44.         default :
  45.             /* invalid item */
  46.             break;
  47.     }
  48.     
  49. } /* doFileMenu */
  50.  
  51.  
  52. /*  */
  53. void
  54. adjustFileMenu ( window_type theWindowType )
  55. {
  56.     switch ( theWindowType )
  57.     {
  58.         case Window_about :
  59.         case Window_DA :
  60.         case Window_Application :
  61.             EnableItem ( gmFileMenu, kmiClose );
  62.             EnableItem ( gmFileMenu, kmiQuit );
  63.             break;
  64.         
  65.         case Window_none :
  66.             DisableItem ( gmFileMenu, kmiClose );
  67.             EnableItem  ( gmFileMenu, kmiQuit );
  68.             break;
  69.         
  70.         case Window_UNKNOWN :
  71.         case Window_dlgModal :
  72.         case Window_dlgMoveableModal :
  73.         default :
  74.             DisableItem ( gmFileMenu, kmiClose );
  75.             DisableItem ( gmFileMenu, kmiQuit );
  76.             break;
  77.     }
  78.     
  79.     EnableItem (gmFileMenu, kmTheWholeMenu);
  80. } /* adjustFileMenu */
  81.  
  82.  
  83. #endif    /* kCompileWithForeground */
  84.  
  85. /*****  EOF  *****/
  86.